


AKTUELE BIJLAGE BĲ 


NIEUWS 


PCM ONLINE 


Personal Computer Magazine, 
het ‘moederblad’ van Commo- 
dore Dossier is het elektroni- 
sche tijdperk binnengestapt 
met een eigen bulletin board. 
PCM Netwerk On-line, zoals 
het bulletin board officieel 
heet, is de elektronische vari- 
ant van de gelijknamige ru- 
briek in dit toonaangevende 
computerblad. Omdat PCM en 
Commodore Dossier op tal van 
gebieden nauw samenwerken, 
spreekt het voor zich dat abon- 
nees van Commodore Dossier 
ook van harte welkom zijn op 
dit bulletin board. 

Let wel, het is geen bulletin 
board dat alleen maar over 
Commodore-computers gaat. 
PCM Netwerk On-line is een 
algemeen bulletin board, waar- 
in over tal van uiteenlopende 


computerzaken verslag wordt 
gedaan. Lezers van PCM en 
Commodore Dossier kunnen 
via het bulletin board tips ach- 
terlaten, wetenswaardigheden 
opdoen, ervaringen met elkaar 
uitwisselen, software down- 
loaden, noem maar op. 
System Operator, oftwel Sy- 
Sop van het PCM-systeem is 
Paul Molenaar. Zijn voor- 
naamste taak is het systeem 
aan de lezers te laten. In de 
praktijk betekent dit dat hij al- 
leen zal ingrijpen wanneer er 
ongevoeglijke taal in het 
systeem verschijnt of er in 
strijd met de wet wordt ge- 
handeld. 


BAUDRATES 

Hoewel PCM Netwerk On-line 
uit een aantal computers 
bestaat, die door middel van 
een complexe koppeling met 








elkaar verbonden zijn, heeft u 
thuis niet zoveel nodig om het 
netwerk te kunnen benutten. 
Het belangrijkste apparaat is 
de modem. Het Netwerk biedt 
de mogelijkheid om er op 300 
baud full duplex, 1200 baud 
full duplex en 1200/75 baud 
gebruik van te maken. Binnen 
overzienbare tijd worden deze 
snelheden uitgebreid met 2400 
baud full duplex. 


INLOGGEN 

Het inloggen op het systeem 
gaat zeer eenvoudig. Simpel 
het telefoonnummer 
020-5102870 draaien en u 
bent binnen. Wel even uw 
wachtwoord geven natuurlijk. 
Heeft u nog geen wachtwoord 
dan is er nog geen man over 
boord. U hoeft dan alleen uw 
persoonlijke gegevens als 
naam en adres in te 
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NETWERK ON-LINE 


020 5102870 


vullen, een wachtwoord te kie- 
zen en u kunt aan de slag. 


Wilt u meer weten over de 
werking van PCM Netwerk On- 
line dan is het raadzaam Per- 
sonal Computer Magazine 
nummer 9 te kopen. Daarin 
staat van de hoed en de rand. 
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MARATHON 


Het in Ede gevestigde bedrijf 
Inductive Control Systems 
heeft een nieuwe joystick op 
de markt gebracht. Op zich 
niet zo bijzondere, ware het 
niet dat het hier om een zeer 
geavanceerde ’lolpook’ gaat. 
De joystick is voorzien van 
twee aktie- of vuurknoppen, is 


buitengewoon precies, terwijl 
de zogenoemde slag van de 
joystick en het schakelpunt 
naar believen versteld kan 
worden. Een ander voordeel 
van deze joystick, die als 


naam Marathon meekreeg, is 
dat hij zonder slijtage-gevoelige 
kontakten werkt. Een lange le- 
vensduur is dus gegarandeerd. 
Wat de joystick gaat kosten is 
nog niet bekend. 





CURSUSSEN 


Na de buitengewoon succes- 
volle gebruikerscursus Micro- 
cornputers en Basic van de 
Leidse Onderwijs Instellingen 
(LOI) introduceert deze onder- 
wijsinstelling een nieuwe cur- 
sus die speciaal is ontwikkeld 
voor Commodore-gebruikers 
die hun basis-kennis willen 
verbreden. Commodore 
64-expert heet deze nieuwe 
cursus. Er is in deze cursus 
voor het eerst gebruik ge- 
maakt van een keuze-systeem, 
waardoor de cursist alleen die 
toepassingen bestudeert die 
(hij interessant vindt. Er kan 
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gekozen worden uit zowel 
zakelijke als hobbyistisch 
gerichte specialisaties. 

Het studieprogramma stelt de 
cursist naar eigen voorkeur op. 
Zo’n programma kan bijvoor- 
beeld bestaan uit het werken 
met een database en tekstver- 
werken en spreadsheet, maar 
ook uit grafische en muzikale 
toepassingen gecombineerd 
met programmeren in machi- 
netaal en LOGO. In totaal kan 
uit 10 modulen gekozen wor- 
den. De cursus duurt minimaal 
zes maanden. 

Voor inlichtingen kunt u 

bellen (071- 451882) met de 
heer R. Wong. 











Reacties op Commodore Dossier en CD Aktief zijn natuurlijk altijd welkom. 


Alle briefschrijvers krijgen antwoord, maar niet alle brieven kunnen worden gepladn 


in deze eel Alleen vragen of opmerkingen die voor andere lezers ook in 


eressant 


zijn, komen voor plaatsing in aanmerking. De redactie kan brieven inkorten bij 


ruimtegebrek. 


Uw reacties graag naar: Commodore Dossier, Rijnsburgstraat 11, 


VAN 40 NAAR 80 

Ik zou u willen vragen of het 
mogelijk is om doormiddel van 
een aantal poke opdrachten of 
van een of ander programma 
een 40 koloms beeldscherm 
‘om te bouwen’ tot een 80 ko- 
loms beeldscherm. Het is 
lastig werken met een tekst- 
verwerkersprogramma dat via 
de printer (MPS-801) wel 80 
tekens op een regel kan 
printen. 

Tevens zou ik u willen vragen 
of het mogelijk is (en hoe) om 
de programma’s CD/Base, 
CD/Calc, enz. aangepast kun- 
nen worden van het gebruik 
op de CBM-64 (waar ik nu 
mee werk) naar de CBM-128 
in de 128 mode, die ik over 
een tijdje wil aanschaffen. Tot 
slot wil ik u vragen of de pro- 
gramma van de programma 
service die op diskette staan 
ook volledig aangepast zijn 
aan het gebruik op de floppy 
disk. 

R.A. Hardeveld te Nieuwegein. 


Er zijn 2 mogelijkheden om de 
CBM-64 om te schakelen naar 
80 koloms. Ten eerste softwa- 
rematig, er zijn namelijk pro- 
gramma's die dit kunnen ver- 
zorgen en ten tweede hardwa- 
rematig door middel van een 
speciale uitbreidingskaart die 
ín de userpoort gestoken kan 
worden. De laatste oplossing 
is vrij duur. Doch aangezien u 
van plan bent om spoedig een 
C-128 aan te schaffen, zou ik 
voor 80 koloms op de CBM-64 
niet teveel moeite doen, aan- 
gezien 80 kolommen stan- 
daard op de C-128 aanwezig 
is. U heeft er wel een speciale 
monitor voor nodig (mono- 
chroom plm. f 400,- en in kleur 
plm. f 1000.). 

De programma’s CD/WORD, 
CD/CALG en CD/BASE behoe- 
ven in het algemeen niet te 
worden aangepast. De Basic 
2.0 waarin deze programma’s 
geschreven zijn, zit ook onder- 
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gebracht in de Basic 7.0 van 
de C-128. Alleen dienen be- 
paalde poke’s verwijderd of 
gewijzigd te worden. Wat uw 
slotvraag betreft, de program- 
ma's vragen meestal zelf of u 
van cassette of diskette wilt la- 
den of saven, zodat u zelf de 
keuze kunt maken. 


C-128 POKES 

Sedert een paar maanden ben 
ik de gelukkige bezitter van 
een splinternieuwe C-128 met 
een 1541 diskdrive. 

Ik ben er zeer tevreden over, 
temeer daar men mij onlangs 
heeft gevraagd om mijn com- 
puter grafische kunstjes te la- 
ten vertonen op een 
hobby-tentoonstelling die hier 
binnenkort zal gehouden 
worden. 

Daar ik hierop ben ingegaan, 
heb ik reeds een programma 
met allerlei grafische voorstel- 
lingen ineen geknutseld, doch 
ik heb echter een klein pro- 
bleempje. Ik weet namelijk nog 
niet hoe ik de RUN/STOP- 
toets moet uitzetten in 
128-mode. U begrijpt dat dit 
noodzakelijk is om het pro- 
gramma te beschermen tegen 
‘jeukende vingers’. 

Kunt u mij alstublieft zo spoe- 
dig mogelijk laten weten hoe ik 
dit kan doen. Ik veronderstel 
dat een enkele POKE wel zal 
volstaan. 

P.S. Uw tijdschrift is werkelijk 
fantastisch en zijn geld dubbel 
en dwars waard. Doe zo voort. 
Luc Pycke te St. Laureins (Belgie) 


Het aanbod van handige 
peek's en poke's voor de 
C-128 is nog niet overweldi- 
gend, doch we hebben er toch 
vast een paar verzameld. 
Hieronder treft u er een aantal 
aan: : 


poke 241,x scursor kleur 
poke 235,Xx :regelnummer 
cursor 

poke 2594,0 :toetsen niet re- 


peteren 

poke 2594, 128 ‘toetsen wel re- 
peteren 

poke 24,37 :geen regelnum- 
mer bij listen 

print peek(215) :welke toets 
wordt gebruikt 

print peek(4616) ‘laatst opge- 
treden foutmelding 

poke 774,61:poke 775,255 
‚geeft reset na list 

poke 774,61:poke 775,160 
geeft na list alleen regel- 
nummers. 

poke 792,51:poke 793,255 
:restore toets uitgeschakeld 
sys 57344 :reset 

sys 52524 ‘omschakelen 40-80 
kolommen 

sys 51994 :cursor 40 kolorm- 
men niet knipperen 

sys 52014 :cursor 80 kolom- 
men wel knipperen 

sys 57831 :9064 

sys 16384 :reset met behoud 
van schermkleur 


SAMENVOEGEN 

Kunt u mij misschien vertellen 
hoe ik een Basic-programma 
en een machinetaal- 
programma samen kan voegen 
tot één programma? Dan wel 
zo dat uiteraard uit het Basic- 
programma door middel van 
het sys’ getal het 
machinetaal-programma kan 
oproepen. En hoe gaat dit als 
een machinetaal-programma 
een ‘out of data error’ geeft? 
Ik hoop dat u mij op deze vra- 
gen antwoord kunt en wilt 
geven. 

G.de Bruin te Beetgumermolen. 


Om een machinetaal: 
programma aan een Basic- 
programma te koppelen, dient 
u het allereerst in uw basis- 
programma bij te laden en wel 
aan het begin bijv. door: 

10 XX IF X=1 THEN LO: 
AD” programmanaam’’,8, 1 

20 vervolg van uw programma. 
De variabele X is nodig om te 
voorkomen, dat de machine 
maar door blijft laden, omdat 
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na het laden altijd wordt terug- 
gesprongen naar regel 10. 

Op de plaats waar u de routi- 
ne nodig heeft, kunt u hem 
dan oproepen met SYS xxxxx, 
afhankelijk van de plaats in 
het geheugen waar de routine 
staat. 

Een ‘out of data error’ kan in 
machinetaal niet voorkomen, 
omdat daarin nooit dataregels 
worden gelezen, 


HEXDUMP 

Een tijdje geleden probeerde 
ik het programma van de extra 
basic-commando's, maar toen 
ik door middel van het ”'m”- 
commando, de hexdump op 
het scherm had kon ik het niet 
aanpassen met de cursor- 
besturing. Weet u hoe dit komt 
en hoe het te verbeteren valt? 
Verder heb ik de volgende 2 
vragen: 

1. Hoe krijg ik een 
meerkleuren-hirescreen? 

2. Bestaat er een soort groter- 
dan commando in machi- 
netaal? 

J.Gildemacher te Drachten 


Het aanpassen van een hex- 
dump met het M-commando 
en daarna de cursorbesturing, 
werkt inderdaad niet. 

Nadat u met het M-commando 
de hexdump op het scherm 
heeft gekregen, dient u de te 
wijzigen regel(s) met het A- 
commando aan te passen. Dus 
bijv.: 

A 0820 # aa bb cc dd ee etc. 
Er bestaat geen groter-dan 
commando in machinetaal. 
Wel is er een aantal 
vergelijkingsinstrukties. 

Schaf u zelf een goed machi- 
netaalboek aan. Dat is erg 
handig als u in machinetaal 
wilt gaan programmeren. 


POKE EN PEEK 

Ondanks dat ik al 8 maanden 
beschik over een C-128, weet 
ik nog steeds niet of er al een 
boek op de merkt is, waarin al- 
le Poke- en Peekinstrukties _ 
voor mijn computer staan op- 
gesomd, vergezeld met hun 
werking. Kunt u mij (een) ti- 
fel(s) van boeken geven die 
deze informatie bevatten? 
D.Bogaerts te Berchem-Antwerpen 


(Belgie) D 














BRIEVEN 


De enige door u bedoelde lec- 
tuur, die wij tot op heden heb- 
ben kunnen ontdekken, is het 
boek: 'Peeks en pokes voor de 
C-128' van DATA BECKER. 
Met enig speurwerk zult u het 
in een goede boekhandel of 
computershop wel vinden. 


C-128 MINIATUURTJE 

FAST:FORX =0TO88:POKE48 
64 + X,PEEK(64128 + X):NEXTX 
e 
POKE831,19:POKE830,0:POKE 
4946,44:SLOW 


DOCUMENT 


Een veel voorkomend euvel in 
de huidige programmeerstijl is 
de gebrekkige documentatie. 
Het zal je zelf ook wel eens 
overkomen zijn dat je een half 
afgemaakt programma een 
tijdje laat liggen om vervolgens 
niet meer te weten hoe en wat 
er waar gebeurt. Veel pro- 
-grammeurs nemen de moeite 
niet om met REM instrukties 
de programma’s van commen- 
taar te voorzien. Andere slo- 
pen deze commentaren er la- 
ter weer uit om het programma 
sneller te doen lopen. Neem 
de gulden middenweg, voorzie 
je programma’s zo overvloedig 
mogelijk van commentaar en 
voeg daar nog eens een lijst 
aan toe waarin staat welke va- 
riabelen voor welk doel worden 
gebruikt. Is het programma ge- 
reed, dan bewaar je deze ver- 
sie als documentatie-file. Maak 
hiervan nog een tweede versie 
waar alle commentaar en de 
variabelenlijst uitgesloopt is. 
Deze versie save je als werkfi- 
le. Een bijkomend voordeel is 
dat je direct over een backup 
beschikt. Wil je later een pro- 
gramma wijzigen, dan pak je 
de documentatie-file en kun je 
zonder hoofdbrekens aan de 
slag. 


C-64 POKES 


POKE 788,52(49) : RUN STOP 
uit(aan)zetten. 


Dit miniatuurtje voor de C-128 
verandert de punt op het num- 
merieke toetsenbord in een 
komma. Dat is in vele gevallen 
makkelijker. Bijvoorbeeld bij 
het invoeren van data's of bij 
poke’s. Ik hoop dat u dit in uw 
blad plaatst, want ik denk dat 
u daar veel CBM-128 bezitters 
een plezier mee doet. 

D.K.Hen te Arnhem 


CONCAT 

In de Programmer's Reference 
van de CBM-128 staat dat met 
het commando Concat ook 


POKE 204,0 : Cursor knippe- 
ren aan. 

POKE 207,0 : Cursor knippe- 
ren uit. 

POKE 792,193(71) : RESTORE 
uit(aan)zetten. 

POKE 788,52(49) : STOP 
uit(aan)zetten. 

POKE 808,225(237): STOP- 
RESTORE-LIST uit(aan)zetten. 
POKE 650,0(128) : REPEAT 
uit(aan)zetten. 

POKE 775,200(167): LIST 
uit(aan)zetten. 


KATTE- 
KWAAD 


Verwerk het volgende in een 

kopie van je programma dat j 
cadeau geeft aan een vriend. 
POKE 768,255 : PRINT PEEK 
(768). Hij zal verbluft zijn. 


C-64 
VECTOREN 
VERLEGGEN 


Verleg de vectoren! Bij elke in- 
struktie (bijvoorbeeld list, load, 
save, e.d.) kijkt de computer 
op een bepaalde geheugen- 
plaats waar hij naar toe moet. 
Verander je deze adressen, 
dan gebeuren er vreemde din- 
gen. Bijvoorbeeld: POKE 
816,226 : POKE 817,252. Na 


een LOAD opdracht zal er wor- 


den gereset. Binnen een pro- 
gramma zijn ook met hetzelfde 
effect de volgende geheugen- 
plaatsen te POKEN: 

- 768 en 769 reset na een fout 


programma’s gemerged kun- 
nen worden. Als ik dit toepas, 
krijg ik de melding 'File Type 
Mismatch’. In de Neder- 
landstalige handleiding staat 
alleen iets over het mergen 
van bestanden. Mijn vraag is 
of dit al dan niet mogelijk is en 
zo ja op welke manier dan? 
Bijgaand heb ik nog een un- 
new routine voor de C-128. 
Na een new of reset tik je het 
volgende in: 
poke7170,1:sysdec(”'4003°’) 
[return] 

Hierna een getal intikken dat 


in het programma of bij het 
einde van een programma; 
770 en 771 reset na het in- 
drukken van run/stop. 

Andere gevolgen op dezelfde 
of andere adressen zijn ze ook 
te bedenken. 


C-128 
GEHEUGEN- 
PLAATSEN 


Voor vele is het nog een heel 
gezoek om de juiste geheu- 
genplaatsen voor dit soort pro- 
gramma's te vinden. Hierbij de 
meest gebruikte adressen voor 
de 128: 

$0b00-$Obff (cassette buffer) 
$0c00-$Odíf (RS-232 input/out- 
put buffer)$1300-$1bff (gebied 
voor ROM -cartridges 


voor de 64: 


$c000-$cfff (vrij bereik) 
$033c-$03fb (cassette buffer + 
sprites 13, 14 of 15) 
$02c0-$02ff (sprite 11) 


de tussenhaakjes vermelde 
tekst laat je weten wanneer je 
bepaalde gebieden kunt ge- 
bruiken. Gebruik de cassette 
buffer alleen voor machinetaal 
als je zeker weet dat deze niet 
door een laad/save instruktie 
wordt gebruikt. Er is nog een 
mogelijkheid voor het plaatsen 
van machinetaalprogramma’s. 
Deze geldt zowel voor de 64 
als de 128. Je kunt namelijk 
de beschikbare ruimte voor 
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groter is dan het hoogste re- 
gelnummer en dan return. 
Daarna is listen weer mogelijk. 
S.P. Springint Veld te Aalsmeer 


Voor zover ons bekend kunt u 
met het CONCAT-statement al- 
leen DATA-files aan elkaar 
koppelen en geen programma- 
files. Het statement werkt het- 
zelfde als APPEND. Mochten 
wij er achter komen hoe pro- 
gramma's aan elkaar te koppe- 
len zijn, dan zullen wij het u 
zeker laten weten. 


een Basic programma kleiner 
maken. Een voorbeeld voor de 
64, waarbij ongeveer 2 kb 
wordt vrijgemaakt: 

-10h = int(38960/256):1 = 38960 
O-h*256:poke55,1:poke 
5ô,‚h:clr. 

Het einde van het Basic- 
programma wordt zo van 
40960 naar 38960 verplaatst. 
Voor de 128 geldt het zelfde 
programma, alleen met andere 
waarden. Een stuk van ca.5kb 
vrij maken gaat zo: 

-10h = int(60000/256):1 = 60000- 
h*256:poke55,1:poke56 , h:clr. 
Bij beide voorbeelden is uitge- 
gaan van de standaardwaar- 
den. Wil je weten wat het 
hoogste Basic-adres is, dan 
gebruik je de volgende 
formule: 


printpeek(55) + 256 “peek(56) 


Deze formule geldt zowel voor 
de 64 als voor de 128. 


128 
GRAFISCH 


Wil je op een eenvoudige doch 
doeltreffende manier de grafi- 
sche mogelijkheden van de 
128 bekijken of laten zien, ge- 
bruik dan dit korte programma: 


10 GRAPHIC0,0 : INPUT'Getal 
1, Getal 2;A,C : GRAPHIC1,1 
20 FOR B = 200 to 0 STEP-3 
: CIRCLE, 160,100,B,B,0,0,C,A 
30 NEXT : GETKEYKS$ : GO- 
TO 10 











BULLETIN BOARD CONSTRUCTIE CTA 


UPDATES EN 
CHATMODE 


De vierde aflevering alweer van onze Bulletin Board Constructie set. Naast een nieu- 
we module geeft Jan van Die een overzicht van de meest voorkomende vragen en 
antwoorden over de Constructie set. 


STORYTEL, het BBS waarop 
onze constructieset proef- 
draait, mag zich over een bij- 
zonder grote belangstelling 
verheugen. Veel reakties gaan 
over de programma's uit COM- 
MODORE DOSSIER 6 en 7 of 
het AKTIEF van juni, waardoor 
het prikbord van hoge kwaliteit 
is. Geen geleuter, maar men- 
sen die op een positieve ma- 
nier met hun hobby bezig zijn. 
Sysop Jan van Die geeft een 
overzicht van de belangrijkste 
vragen en antwoorden, waarin 
u vast en zeker iets van uw 
gading zult tegenkomen. 

Op veler verzoek voegen we 
nu ook een chatmode aan ons 
bultetin board toe. 

Via deze nieuwe module kun- 
nen de gebruikers van het 
BBS de sysop oproepen. 

Als deze aanwezig is, kan hij 
via het toetsenbord 
rechtstreeks met de gebruiker 
communiceren. 


HOGERE 
SNELHEID 


Veel mensen zouden het BBS 
graag sneller zien. In CD 8 ko- 
men dan ook (eindelijk)de ma- 
chinetaalroutines om tekst- 
bestanden van schijf te lezen. 
Eventueel kan dat met een 
snelheid van 1200 baud, dus 
dat zal wel hard genoeg gaan. 
Ook nu kunt u uw programma 


al sneller maken. U moet daar- 


voor een compiler gebruiken. 

Zo'n compiler vertaalt het Ba- 
sic naar machinecode, waar- 

door alle opdrachten net even 
sneller uitgevoerd worden. 


Helaas blijkt een aantal beken- 


de compilers het af te laten 
weten als het op telecommuni- 
catie aankomt. PETSPEED 
krijgt bijvoorbeeld problemen 
zodra er verwijzingen naar de 
userpoort in het programma 
voorkomen. 


Met de ASTRO-COMPILER 
zijn geen problemen bekend. 
Het BBS wordt door de omzet- 
ting in machinecode ongeveer 
40% sneller. 


LINEFEED- 
PROBLEMEN 


Naast Commodore bezitters, 
zullen ook eigenaren van an- 
dere computers kontakt met 
uw BBS zoeken. Hierbij kan 
het probleem ontstaan dat de 
tekst steeds op dezelfde regel 
van het beeldscherm afgedrukt 
wordt. De Commodores geven 
met CHR$(13) namelijk zowel 
RETURN (naar begin van de 
regel) als een LINEFEED (re- 
gelopvoer). Andere computers 
hebben voor een linefeed nog 
eens extra CHR$(10) nodig. 
Nu hoeft dit alles geen pro- 
bleem te zijn. Een beetje com- 
municatieprogramma biedt de 
mogelijkheid om de computer 
zelf linefeeds te laten genere- 
ren. Voor de pechvogels die 
en niet in het bezit zijn van 
een Commodore en niet van 
zo’n communicatieprogramma, 
stel ik de volgende update 
voor: 


In regel 130: R$ =CHR$(13) 
moet worden 

R$ =CHR$(13) + CHR$(10) 
In regel 2400: Na GOSUB 
2120 tussenvoegen: 
Z=10:GOSUB 2120 


ANDERE 
MODEMS 


Vanaf CD 8 is een Teltron mo- 
dem een vereiste. Alleen met 
dat modem kan software ge- 
download worden. De huidige 
versie blijkt in ieder geval ook 
te werken met het VICCOM 
COMPACT MODEM in samen- 
werking met de auto-answer 
kaart. 


(Met dank aan dhr. Meyboom, 
Zw.Vlaanderen). 


VviIC-20 en 
CONSTRUC- 
TIESET 


Voor zover ik begrepen 

heb, werkt het BBS perfect 
met een VIC, mits voorzien 
van een flinke geheugenuit- 
breiding. 

Module 140 moet uit het pro- 
gramma gesloopt worden. Om- 
dat andere routines van modu- 
le 140 gebruik maken, kunt u 
het best de volgende regel 
opnemen: 

1920 RETURN 


De VIC zal helaas geen 
gebruik van de machinetaal- 
routines uit CD 8 kunnen ma- 
ken. Uiteraard kan een handi- 
ge programmeur de routines 
aanpassen, maar deze zaak 
wordt bemoeilijkt doordat 

er wat fouten in het ROM van 
de VIC zitten. Om die fouten 
heen programmeren, zal voor 
aardig wat hoofdbrekers 
zorgen. 


C128 en 
GONSTRUC- 
TIESET 


Voor zover bekend zijn er drie 
aanpassingen nodig om het 
BBS in C128 mode te laten 
werken: 

1) de schermadressen van de 
C&4 veranderen in die voor de 
C128 

2) voor alle pokes telkens 
BANK 15 opnemen: 
BANK15:POKE(WAARDE) 

3) Het OPEN-commando 

in regel 30 vervangen 

door: 
OPEN1,2,0,CHR$(6 + 32) + CH- 
R$(32 + 128) 

(Met dank aan Peter 

Cremer). 
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AAM 


DELETE 


Als een gebruiker op de 
delete-toets drukt, wordt 

het laatste teken in de 
computer zelf gewist. Op het 
scherm blijft de tikfout echter 
staan. Daar zat een gedachte 
achter: bij het wissen wordt 
de tekstruimte op het gra- 
fische scherm licht bescha- 
digd. Veel mensen vonden dat 
minder bezwaarlijk. Het BBS 
staat tenslotte meestal in 
PEEKMODE. 

Vandaar de volgende update: 
2395 IFSYANDZ = 20THENZ= 
8 

2410 IF(Z = 8)AND(LEN(OS)) 
THENO$ = LEFT$(O$,LEN(O$)- 
1):Z=20:GOTO2460 

2540 PRINTCHR$(Z);:X =X + 1: 
IEZ=20THENX = X-2 
Eventueel kunt u de zijkanten 
van de tekstruimte verwijde- 
ren, zodat de rechterrand bij 
delete niet naar binnen kan 
worden getrokken. 


KLEUREN 
POKEN 


Oude C64’s hebben extra po- 
ke's nodig om de kleur van ka- 
rakters op het beeldscherm in 
te stellen. U hebt met dit pro- 
bleem te maken als Uw C-64 
niet met grote letters COMMO- 
DORE DOSSIER op het 
scherm print nadat u het BBS 
gestart hebt. 

De volgende regel verhelpt de 
kwaal: 

1135 FOR 

|= 0TO999:POKE55296 + 1,15: 
NEXT 

Ik raad u aan om deze regel 
alleen op te nemen als u een 
oude C64 heeft. Het poken 
duurt namelijk een EEUW! 


HOOFD- 
LETTERS 


Het BBS werkte tot dusver al- 
leen maar met kleine letters 
(peekmode) of alleen maar met 
hoofdletters (grafisch scherm). 
Omdat de gebruiker vrijwel al- 
leen maar paginanummers 
hoeft in te tikken, was dit geen 
echt bezwaar. Sinds het AK- 
TIEF van juni, waarin een mo- 
dule stond om berichten voor 
de sysop achter te laten, is 











de situatie veranderd. 

De volgende update brengt 
beide lettertypes binnen uw 
bereik: 

2390 

Z= ASC(A$ + CHR$(0))AND12 
7:Z1 =Z:IFZ=OTHEN2340 
2425 

IFZ>64ANDZ< 96THENZ=Z- 
+ 128:GOTO2440 

2450 

O$ =O$ + CHR$(Z):Z2=Z:Z = 
Z1:GOSUB2120:Z = Z2 

Denkt u erom dat hoofdletters 
er op het grafische scherm uit 
zullen zien als grafische 
tekens?! 


CHATMODE 








GEBRUIKSAANWIJZING VOOR PROGRAMMEURS 


Nadat de module allereerst het 
verzoek om de sysop te spre- 
ken bevestigd heeft, zorgen de 
regels 4425 tot en met 4445 
voor een alarmsignaal van 
twintig sekonden op de gast- 
computer. 

Als de sysop binnen die tijd op 
F8 drukt, voert regel 4440 
naar de afdeling toetsenbord- 
communicatie. In het andere 
geval wordt pagina 80 aanbe- 
volen om een bericht in het 
BBS achter te laten, waarop 
de module terugspringt naar 
het hoofdprogramma. 

Bij communicatie via het toet- 


senbord moeten de binnenko- 
mende letters vertaalt worden 
in Commodore-ASCII. Dat ge- 
beurt in de regels 4475-4505. 
Regel 4510 kijkt of de sysop 
wil praten en geeft hem desge- 
wenst voorrang. 

De tekst van de gebruiker 
wordt door regel 4515 zowel 
op het scherm van de sysop, 
als op het scherm van de ge- 
bruiker afgedrukt. Regel 4540 
doet hetzelfde met de tekst 
van de sysop. 

De gebruiker kan alleen iets 
intikken nadat de sysop op 
RETURN gedrukt heeft. Regel 


4545 veroorzaakt deze 'discri- 
minatie’. 

In het laatste gedeelte van het 
programma vindt u ook twee- 


maal de opdracht POKE 212,0. 


Deze poke voorkomt dat de 
computer van het BBS in de 
war raakt nadat het een aan- 
halingsteken heeft binnenge- 
kregen. 

De overige regels zijn bestemd 
om de module aan het hoofd- 
programma te koppelen en de 
gebruiker van het systeem wat 
uitleg te geven. 


MEER 





De nieuwe module in dit num- 
mer van AKTIEF geeft de ge- 
bruiker de mogelijkheid om u 
lastig te vallen. Nadat hij *81 
heeft getikt, roept uw C-64 u 
via een tweetonig signaal naar 
de monitor. Wanneer u niet 
thuis bent (of doet alsof u niet 
thuis bent) krijgt de gebruiker 
hiervan na twintig seconden 
bericht. 

Als u tijdens het alarmsignaal 
op F8 drukt bevestigt u uw 
aanwezigheid. 

De module is zo geprogram. 
meerd dat uw teksten altijd 
voorrang hebben. 

De gebruiker kan pas na een 
RETURN iets terug zeggen. 
Dit voorkomt chaos op het 
scherm. Aan het eind van het 
gesprek drukt u weer op F8 
om de gebruiker in het board 
terug te brengen. Uiteraard 
kunt u ook het initiatief nemen: 
de module maakt het u ook 
mogelijk om de gebruiker in 
chatmode te brengen zonder 
dat hij daarom verzocht heeft. 
Ook hier zorgt functietoets F8 
voor de sprong naar de su- 
broutine. F8 werkt alleen als 
de computer zich in het hoofd- 
programma bevindt. U zult dus 
even moeten wachten tot de 
gebruiker zijn pagina uit heeft. 


HANDLEIDING BĲ HET INTIKKEN 


routines willen nog wel eens 
de oude regel bewaren en de 
nieuwe weggooien… 

Geef uw vingers na het intik- 
ken van deze module maar 
wat rust. Volgende maand krij- 
gen ze het bijzonder druk als 
we de diskversie van het BBS 
publiceren. 


De listing bevat niet alleen de 
nieuwe module, maar ook alle 
updates. Hiermee is gepro- 
beerd de kans op fouten te mi- 
nimaliseren. Let er op dat er 
een aantal regels in de listing 
voorkomen die oude regels 
met datzelfde nummer VER- 
VANGEN. U kunt het beste 
eerst versie drie inladen en 
dan gaan tikken. MERGE- 


De updates en de nieuwe mo- 
dule gaan er vanuit dat u een 
originele versie van het BBS 
bezit. Eigen veranderingen 
kunnen roet in het eten 
gooien. 

Het laatste versienummer tot 
dusver was drie, Samen met 
deze uitbreiding kunt u de 
constructieset derhalve als 
BBS IV bewaren. 


130 r$=chr$(lO)+cehrsl13)iect=chrsCi47d:rvs=chr$ (18): 
up$=chr$Cid5):klS=chr$Cladlsh/sp>ad 

1135 rem alleen voor oude c64’s:fori=0to999:poke55296+i, 15:next{sh/spda7 
2390 z=asclaf+chr$t0ddandi27:ziez:lfzsOthen234d0dsh/spra0 

2395 ifsyandz=20thenz=8{sh/spdel 

2400 ifz=l3thenprints:y=ytl:gosub2120:z=l0:gosub2i20:return(sh/sp)79 
2410 1f(z=Bland(len(os))thenof=leftsClos,lenlos)d=-1):gosub2120:2=20: 
goto2460<sh/sp>28 

2425 1fz>64andz96thenz=2+128:goto2440tsh/sp>6e 

2450 of=o$tcehrslzi:z2szizszi:gosub2l20:z=z2tsh/sp>1i0 

2540 printchr$(z)s:xexti:ifz=20thenger"2{sh/spdlf 

4400 rem kkk module 255 kxk{sh/spd86 

4410 rem chat-mode{<sh/sp»94 

4420 z$=r$tr$+"Als de sysop er ìs, reageert hij binnen 20 

seconden. ”:gosub2220<sh/sp>df 

4425 d=0:5=54272:pokest+5,9:pokes+6,0:pokes+24,154sh/spr03 

4430 pokes+4,33:pokes,75:pokestt,34d:forl=itoS0Ornext:pokes+4, 32Csh/sp>a2 
4435 pokest+4,33:pokes,75:pokest1,20:forl=lto50O:nexzt:pokes+4, 324sh/sp>ba 
4440 getat:ifaf=chr$(l4O)thenpokest24,0:goto4465{sh/sp>7b 

4445 ifd4i6thend=d+i:goto4430<sh/sp>0g9 

4450 pokest24,0sz4=r$t"De sysop Is momenteel nlet aanwezig.":gosub2220ocsh/ep>0s 
4455 z$er$t"U Kunt via x80 een boodschap achterlaten“:gosub22204sh/sp>24 
4460 return<sh/sp>f3 

4465 sp=l:printesrvskl$"Chat-mode"<sh/sp>97 

4470 z$=r$tr$t"De sysop is nu on=line.":gosub2220{sh/sp>d4 

4475 get#2,o8{sh/sp>9d 

4480 z=asctostehrt(Odjandi27:ziezish/sp>ab 

4485 ifz=8thenz=20:;goto45i0ésh/sp>31 

4490 Ifz=13then4510<sh/sp»5d 

4495 IfZ(32thenz=0:goto4510lsh/sp)31 

4500 ifzd64andz9bthenz=z+128:goto4510lsh/sp>99 

4505 ifz»9Sandzl23thenz=2-32{sh/sp> 2d 

4510 getas:lfa$then4540{sh/sp>3d 

4515 Ifzthenprintchre(z)s:zezi:gosub2i20sh/sp>f5 

4520 ifz=34thenpoke212,0{sh/sp>cO 

4525 ifz=l3thenz=l0:gosub21i20sh/sp>25 

4530 goto4475<sh/sp>28 

4535 Ifa$schr$(140jthenz$=r#+"U bent weer terug in het 

board. ":gosub2220:return<sh/sp>o9 
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4540 z=zvlasclaf)):gosub2l20sprintas::ifz=34thenpoke212,0{sh/sp»9l 
4545 ifz=l3thenz=i0:gosub2120:fori=0to99sgett2,ossnextsgoto4475ssh/spr5d 
4550 geta%:ifaf=""then4050{4sh/sp»de 

4555 goto4535<sh/sp>54 

10308 ifpn=8ithengosub4420:pn=0ésh/spree 

10315 ifpeek(197)=Jandpeek(653)=lthengosub4465:pn=0sh/spics 

20030 piCBd=t:psC20d=l:ps(BON=li ps CBID=iE ps CIOP=l<sh/spdb5 

21070 z$Cl6d=" versie 4.0" {<sh/sp>e2 

30160 pa=8:pv=Oipm=itsh/spr24 

30161 z$C1J="BERICHT VOOR SYSOP ACHTERLATEN" <sh/sp>a2 

ZORG ak nnn nnen “<sh/sp>58 

30163 z8(4)="0O. BERICHT IN HET BOARD"<sh/sp»86 

30164 2$(5)="1. SYSOP ON-LINE" {sh/spda2 

30165 z$(6)="Bij mogelijkheid O (rechtstreeks #80)" {<sh/sp>88 

30166 z$(7)="kunt u een bericht van 8 regels met”<sh/sp»i2 

30167 z${8)="elk 37 karakters in het board achter-"{sh/sp>73 

30168 z$(9)="laten. Als u minder ruimte nodig heeft” <sh/sp>b4 
30169 z#ClO)="beeindigt U uw invoer op een nieuwe”<sh/ap>3i 


30170 z4liid="regel met het woord STOP."{sh/sp>d49 

30171 z#Cl2d= "Bij mogelijkheid 1 Crechtstreek 81) "(sh/spre0 
30172 z8C13)="kont de sysop, indien aanwezig,”<ah/sp>35 
30173 ze(l4j="online,"tah/ap»di 

30174 zell6=" {druk op RETURN voor het menu>”<sh/sp>i0 
30175 goto20570<sh/sp»13 


FC DE NAZORG 


EGCONOMIE-SIMULATOR In Commodore Dossier num- _ listing ontbrak. We schamen 


mer 7 is een aantal fouten ons diep. Om het weer goed 
"000000" :goto7604sh/spd6d geslopen. De meest in het oog te maken drukken we bij deze 
C5 X p/w + c64sh/spd7b springende was wel het feit de hele listing nogmaals af. 
Id4sh/sp>chb dat er van de economie- Deze keer wel volledig. Onze 


Ee En de simulator een deel van de verontschuldigingen voor het 
150 (lef la) « le - 6 k (le6 « KK)P(1 => lad(sh/sp>eg8 ongemak. 
160 y * C4 *p / mm{sh/sp>88 
170 = le = 6 X (7 Xx le % w + lu x wu){sh/sp»6b C-128 
En _ / a 
180 Yy Cg Lo + et / 1 (s « CI t) + t){sh/spd6f GHECKSUM 


190 return<sh/sp»30 
200 wu = wu + du{sh/sp>cl In het laatste nummer van 


210 w= w + dw{sh/sp>d9 Commodore Dossier stond een 


AN en ane checksum voor de C-128 aan- 

230 pp p<sh/sp>04 q 

240 kk = kk + 11 / p = .22 x kk{sh/sp>3c : gekondigd. U vond de check- 

250 11 Il + .015 « llésh/sp>54 sum echter niet terug in het 

de tm de 5 Ee } EE Oe blad. De reden is dat we op 
p= 0. pp: gosu : nl = n0: pl = pésh/sp 

280 p = 10 * pp: gosub 110: nu = n0: pu = p<sh/spdel het laatste moment hebben 

290 if nl « nu < O then goto 3304sh/sp>80 besloten de checksum nog 

300 print “geen oplossing gevonden binnen”{<sh/spddb niet te plaatsen omdat de ma- 

en B _e Kk pp. „IO % Pps >» Ksh/spioe ker van de checksum nog eni- 
stop{sh/s An 5 

330 5x ot B ocen soda ge modificaties wilde aanbren- 

340 gosub 110<sh/spde8 gen. 

350 if nO x nl >» O then nl = nO : pl = p: goto 370<sh/sp»af 

360 nu = n0: pu = p{sh/sp)63 

370 if pu = pl > 0.0 then goto 330{sh/sp)fa 

380 p = .5 & (pl + pu){sh/sp)Ia 

390 gosub 110<sh/spò3a 

400 rem evenwichts varlabelen{<sh/sp»19 

410 il = p * el / i&sh/sp)43 540 t = .24sh/spde4 

420 yy y x p<sh/sp>b2 550 la = 0.0405{sh/sp>84 

430 tt t « yy{sh/spje5 560 8 = .15<sh/sp,fg 

440 ££ = f£ + tt - gg - GO x p{sh/spd2a 370 pp = i{sh/sp>bb 

450 ss = 5 « (1 = t) « yy{sh/sp>ed 580 p = .915<sh/sp>b7 

460 co = yy = 38 = ttésh/sp>7f 590 w = 30000Csh/sp>9a 

470 return<sh/sp>59 600 15000{sh/sp>de 

480 rem initialisatie{<sh/sp)33 610 500000 sh/spre7 

490 cl 5200{sh/spd2c 620 O{sh/spdec 

500 cd = 0.0355555<sh/sp>18 630 400000{sh/sp»c2 

910 c5 570e8<sh/sp>74 640 30000<sh/sp>74 

520 C6 3053917 <sh/sp>f7 650 82000<sh/sp>00 

530 c7 .2<sh/spìca 660 dw 1500{sh/sp>33 


100 


110 
120 


Hoet it Ht 


HH 


EM 


md un 


Ht tn u 
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670 du 900<sh/spd06 

680 dm 4000{sh/sp)15 

690 vo$="anp nieuws... “(sh/sp»5d 

700 col$=chr$(18)tchrs5):nof=chrs(146)dtehrs159) sh/spr£f7 
710 for z = 1 to 22 : te$=teftchr$(17): next : 
d$=chr8(19)+ttes:mes=left$(ds, 1O)Csh/sp>f9 

720 wi$=" “<sh/sp>5a 
730 gosub 200<sh/sp>67 

740 tm = 1975<sh/sp>47 

750 return<sh/sp»62 

760 rem economie model<sh/sp)33 

770 printehr$(147)dchrs(5);{sh/sprad 

780 print” UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI"sh/spraa 
790 print” T commodore dossier H°<sh/spdba 
800 print” T H"<sh/sp>86 
810 print® T economie simulator H°<sh/spje3 
820 print” T {cd 1986 H"<sh/sp>f6 
830 print” T H°<sh/sp>98 
840 print” T door paul molenaar H°{sh/sp>e7 
850 print” JFFFEFFFPEFFFFFFFEFFFFFFEFFFFPEFFFFFFK" (sh/spde9 
860 printchr$(1i7dchrsCti7denrs$C17)” een ogenblik graag...”<sh/spd3b 
870 gosub 480: rem initialisatiegsh/sp>3c 

880 gosub 910: rem in= en output{sh/sp>4d 

890 gosub 200: rem tijdstap{sh/sp>76 

900 goto 880<sh/sp>3e 

910 rem menu tijdstap in= en output{sh/sp)2a 

920 print chr$(147):printnos;&<sh/sp>d4b 

930 print * overzicht “chr$(5);tmésh/sprab 

940 print no${sh/sp>1i3 

950 print macro=economische grootheden"<sh/sp>id 

960 print overheid em arbeidsmarkt” {<sh/sp>68 

970 print mutaties beleid”;tm+i{sh/spdf2 

980 print overzicht “;tm+i{sh/spdac 

990 print stoppen” <sh/sp)3f 

1000 printchrsCti9JechrsCi7dechrs$ 17) 
chr$(17dchr$(17dechrsl1i7dechrs(17dechrs(17)chrs 17 sh/spdbe 
1010 print”maak een keuze: “i:input Kki<sh/sp>80 

1020 If Ki tor Kl > 5 then goto 1000Xsh/spded 

1030 If ki 1 then gosub 1190{sh/sp»53 

1040 If ki 2 then gosub 1400<sh/sp)4a 

1050 If ki 3 then gosub 1580{sh/sp>48 

1060 if kl =4 then return<sh/sp>7e 

1070 if Ki{>S5then920lsh/sp>70 

1080 print:print”weet u het zeker (j/"chr$(18)”n*chr$C146)") “sésh/sp>cl 
1090 get a%: If a$="" then 10904sh/sp>4b 

1100 If a$="j" then 1120<sh/spdfb 

1110 goto 9204sh/spde0 

1120 printchr$(147) “bedankt voor het gebruiken van de”:print{sh/sp>92 
1130 printchr$(5)” economie simulator’ <sh/sp>6b 

1140 printno$:print”gedurende: “;<sh/sp>05 

1150 printleft$(ti$,2);":"sCsh/sp>37 

1160 printmid$(tis,2,2)5;":";5Csh/sp>dd 

1170 printright$(t1i8,2);”® Cuu:mm:ss)"{<sh/sp>fa 

1180 end{sh/spd18 

1190 rem macro=economisch overzicht<sh/sp>04 

1200 print chr$(147)<sh/sp>d9 


1210 goto 1220sh/sp>36 
1220 print chr$(18)” overzicht macroveconomie “ta” “chr$(146){sh/spdce 
1230 printésh/sp>53 

1240 print “nationaal inkomen 
1250 print ‘consumptie 

1260 print “besparingen 


2 int (yy)5” (mln) {sh/sp>If 
1270 print “Investeringen , 


int (ee)s° (mln) (sh/sp>3e 
int (ss)5° (mln) Csh/spdcd 
int C1i)5® (mln)”<sh/sp>4d 
int Ctt)5” Cmln)°<sh/sp>3a 
int{g0O « p)s° (mlnd”sh/sp>dd 


1280 print “belastingen 

1290 print “vaste overheidskosten 
1300 print{sh/sp>88 

1310 print”geld hoeveelheid int Cmm)5° Cmln)”<sh/sp)30 

1320 print “kapitaalgoederen 8 int (kk * p)5® (mln)”<sh/sp>96 

1330 print “ingezette arbeid int Cle)s” (prs)'<sh/spdif 

1340 print<sh/sp>a0 

1350 print ‘rente kapitaalmarkt int (100 x 1)5® %"<sh/sp>27 

1360 print “inflatie Int (100 Xx (p-pp) / pp)i® %°Csh/sp>bg9 
1370 print “prijs index (“stms;°=193 int C190 « p) / 100{sh/sp>Ja 

1380 get a% : If a% = “" then 1380{sh/sp>6e 

1390 return<sh/spde5 

1400 rem overzicht overheid en arbeidsmarkt{sh/sp>dbe 

1410 print chr$(147)<sh/spjea 

1420 printchr$(18)” overheld en arbeidsmarkt “5 int (tm); * 
schr$(146){sh/sp>89 

1430 print{sh/spdOa 

1440 print ’overheids-financien s 7ô Int Cff)s * (mln)°<sh/spde3 

1450 print "overhelds-inkomsten : 73 Int Ctt)s * (mln)"{(sh/spded4 


su a uu . 
we we we We ve ve 
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1460 print “overheids-uitgaven s 25 Int (gg)5 * (mln)”{sh/sp>8b 
1470 print'vaste overhelids-kosten: *; Int (g0 « p)s * (mln)“{sh/spre4 
1480 print “belasting quote 8 “s int C1OO « tds” %"<sh/sp>2i 
1490 print’geld hoeveelheid : 73 Int Cmm)s * (mln)”<sh/spd7c 
1500 printésh/spò40 

1510 print "arbeids=aanbod 2 75 Ant (11)5 ° (prs) Csh/sp>r44 
1520 print ‘ingezette arbeid s “s int (le)s * (prs)"<sh/sp)dd 
1530 print “werkloosheid s Ps int (Il = le)5® (prs)°<sh/sp>0e 
1540 print “loongeniddelde s 2: int (w)3 ° C£l/jr)"<sh/sprf2 
1550 print “uitkerings-geniddelde : °; int C(wuds *® (fl/jr)"<sh/sp>25 
1560 get a% : If a% = °° then 1560{sh/sp>1i9 

1570 return{sh/spìaa 

1580 rem mutaties beleid{sh/sp>a0 

1590 print chr$Cl47)<sh/sp>5d 

1600 printchr$(19)<sh/sp>ti1 

1610 print chr$(18)° beleids=mutaties “;tms® “chr$(146){sh/sp>ad 
1620 print<sh/spdch 

1630 print "i= geld hoeveelheid Ssdms”® (mln) <sh/sp>c8 

1640 print "2= loongeniddelde Ssdws® CÊl/jrd"Csh/spdeb 

1650 print °3= uitkeringen “sdus® Cfl/jr)°<sh/spd81 

1660 print "4= belasting=quote “st<sh/sp)8f 

1670 print "5= terug naar hoofdmenu”{sh/spd35 

1680 print left®(d$,9){sh/sp)b3 

1690 print ’maak een keuze: “s{sh/sp>28 

1700 input k2ésh/sp>5e 

1710 If k2 <i or k2 > 5:then goto 1680<sh/sp>b4 

1720 on K2 goto 1920, 1990, 1730, 1830, 2090<sh/sp>do 

1730 rem mutatie uitkeringen<sh/sp>4i 

1740 print me$;printwis:printmes<sh/sp>69 

1750 print“mutatie ulitkerings=geniddelde: ";:input du{sh/sp>97 

1760 If wu + du >» O then goto 1790Csh/sp>74 


1770 a$="wao’'ers, bijstandsmoeders en werklozen bestormen 
binnenhof” :gosub2ll04sh/spdeg 

1780 goto 1730<sh/spd7e 

1790 If du {< = .30 * wu then goto 1590<sh/sp>c3 

1800 a$=" "uitkeringen fors omhoog: heel werkend nederland neent ontslag" {sh/sp>9, 
1810 gosub2t10{sh/sp>9a 

1820 goto 1730<sh/sp>97 

1830 rem aanpassen belasting quote{sh/spded 

1840 printme$:printwis:printmef{<sh/sp>94 

1850 print “belasting quote: “;:input t{sh/sp>59 

1860 If t> O then goto 1890{sh/sp>33 

1870 a$="oppositie vraagt: waar betaalt regering dit van?":gosub 2110<sh/sp>32 
1880 goto 1830sh/sp>dc 

1890 If t{ .9 then goto 1590Csh/sp»3d 

1900 a$="nassamoord op belasting-inspecteurs”:gosub2110sh/sp>27 
1910 goto 1830<sh/sp>f2 

1920 rem mutatie geld-hoeveelheidésh/sp>22 

1930 printme$:printwig :printmes<sh/sp>2e 

1940 print “mutatie geldhoeveelheid: °;: input dam{<sh/sp>ba 

1950 If mm + dm > O then goto 1590{sh/sp>13 

1960 a$="landelijk protest tegen invoering ruilhandel":gosub 2110<sh/sp>ce 
1970 dm = O{sh/spd3e 

1980 goto 1920{sh/sp>38 

1990 rem mutatie loongeniddelde{sh/sp>17 

2000 printme$:printwig :printmes{sh/sp>74 

2010 print'mutatie loongemiddelde: “5: input dw{sh/sp>b0 

2020 If dw > -.10 « w then goto 2050{sh/sp>9c 

2030 a$= ‘m.e. paraat nu stakingen en oproer drelgen.":gosub2it0<sh/spdaf 
2040 goto 1990<sh/sp>77 

2050 If dw < = .25 Xx w then goto 1590<sh/sp>62 

2060 af="werkgevers bekritiseren beleid: ’wie is die sinterklaas? wij 
niet!’ <sh/sp>e2 

2070 gosub 21104sh/sp>91 

2080 goto 1990Csh/spdao 

2090 rem terug naar overzicht{<sh/sp>a2 

2100 return<sh/sp>b2 

2110 rem newsflash routine{sh/sp>b8 

2120 te$=vo$tastsh/sp>35 

2130 gosub2140:printno$:return{<sh/spde2 

2140 pr$=""<sh/sp>cO 

2150 for x = 1 to len (tes)Xsh/sp>67 

2160 geta®: if a8>°“thenreturn<sh/sp>43 

2170 pr$zleft$(te$,z):gosub2190: next xz(sh/sp>33 

2180 retura{sh/sp>02 

2190 le=len(pr$){<sh/sp>d9 

2200 sp=40O=le:if sp < O then sp = O{sh/sp>90 

2210 pr$=left$Cwis$,sp)tpréish/spd6e 

2220 If len(prs) >» 40 then pr$=right$(pr$, 40) (sh/sp>8b 

2230 printcol#;d$;pr$;{<sh/sp>3e 

2240 return<sh/sp>46 

ready. 
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GETALLEN EN MACHINE TAAL 


In deze vijfde aflevering behandelen we een ER onder- 


werp: het afdrukken van decimale getallen. Dit on 


hoort tot de verzameling problemen die door een grote groep 
machinetaalprogrammeurs als 'ingewikkeld’ wordt beschouwd. 
Roelf Sluman helpt u een flink eind op weg. 


In Basic is het allemaal zo 
makkelijk: een getal krijgen we 
op het scherm door er een 
PRINT-commando voor te zet- 
ten, eenvoudiger kan het niet. 
In de machinetaalprogramma’s 
moeten we hiervoor echter on- 
ze eigen sub-routine ontwer- 
pen. De reden hiervoor kun- 
nen we met een eenvoudig 
voorbeeld verklaren: 


in Basic wordt het getal 65 op 
het scherm gezet door het 
commando: 


PRINT 65 


Als je niet verder doordenkt, 
zou je dat vertalen in on- 
derstaande machinetaal- 
instructies: 


LDAf65 
JSRSFFD2 


De snelle jongens hebben de 
valkuil echter al in de gaten: 
hier wordt niet het getal 65, 
maar de ASCil-code 65 op het 
scherm gezet! (in bovenstaand 
voorbeeld is dat de letter A) 
Het bovenstaande voorbeeld 
leert ons dat we er dus een 
nieuw probleem bij hebben: 
we moeten een routine schrij- 
ven die een getal dusdanig 
‘voorbewerkt’ dat het geschikt 
is om op het beeldscherm ge- 
zet te worden. 


Om dit probleem op te lossen, 
moeten we een aantal zaken 
op een rijtje zetten. Allereerst 
kijken we naar de maximale 
inhoud van een geheugen- 
plaats. Hiertoe beperken we 
ons voorlopig. De freaks kun- 


nen later hun eigen aanpassin- 


gen schrijven. 
KERN 


Zoals iedere machinetaalpro- 
grammeur weet, bedraagt de 


maximale inhoud van een ge- 
heugenplaats 255. Met andere 
woorden: we hebben met drie 
cijfers te maken: een honderd- 
tal, een tiental en een eental. 
Deze drie cijfers moeten we in 
de juiste volgorde op het 
beeldscherm zien te krijgen. 
Dat is de kern van ons 
probleem. 

Een snelle blik op de ASCII- 


tabel van de Commodore ho- 


mecomputers leert ons dat de 
cijfers hun eigen ASCIl-codes 
hebben. 

Onderstaand overzicht toont 
een en ander: 


cijfer ASCII ASCII (hex) 


CO OO ml ECH En CI ND ek CO 


erwerp be- 


De rechterkolom, met de hexa- 
decimale ASCII-waarde, heb- 
ben we er niet voor niets bijge- 
zet. U ziet waarschijnlijk de 
overeenkomst tussen de eigen- 
lijke waarde en zijn ASCII- 
equivalent: door het linker nib- 
ble de waarde 3 te geven, 
maakt u van een decimale 
waarde die kleiner is dan 10 
een ASCIl-waarde en dus een 
afdrukbaar teken! 


Een voorbeeld om dit toe te 
lichten: 


In het A-register bevindt zich 
het getal 5. Dit getal willen we 
op het scherm afdrukken. We 
hebben net al gezien dat het 
zonder meer aanroepen van 
$FFD2 niet werkt: de computer 
drukt dan de ASCII-code 5 af 
(de tekstkleur wordt wit). In 
plaats daarvan moeten we het 
linker nibble de waarde 3 ge- 
ven, zodat we de ASCII-code 
voor het getal 5 in A hebben 
staan. Onderstaande program. 
maregels doen dit: 

(a bevat de af te drukken deci- 


De gestructureerde subroutine: 





male waarde, maximaal 9) 


ORA#$30 ; HET LINKER NIB- 
BLE KRIJGT NU DE WAAR- 
DE 3 

JSR SEFD2 ; HET CIJFER 
WORDT NU OP HET BEELD- 
SCHERM AFGEDRUKT 


We zijn er echter nog niet, 
want het bovenstaande werkt 
alleen van getallen van 0 tot 
en met 9. We moeten dus nog 
een paar extra stappen onder- 
nemen, die er voor moeten 
zorgen dat we eerst het hon- 
derdtal, dan het tiental en uit- 
eindelijk het restant op het 
scherm kunnen afdrukken. 

De hamvraag is nu natuurlijk: 
hoe krijgen we het honderdtal? 
Het antwoord is niet zo moei- 
lijk: deel het af te drukken ge- 
tal (let op: niet het CIJFER, 
maar het GETAL!) door hon- 
derd. Het resultaat is het hon- 
derdtal, dat we vervolgens 
(door het linker nibble op 3 te 
zetten) kunnen afdrukken. 
Vervolgens berekenen we het 
tiental. Dit doen we op bijna 


L ANLLNOH 


SEEN GETAL DECIMAAL OP HET SCHERM AFDRUEEEN: 
sHET GETAL BEVINDT ZICH IN A 








sDIT 15 DE 'HETTE 


DECDUT 
HEDLUS 
LUS 


LDY #5 
LDX #0 
CMF 
BEG 
SEC 
INX 
ENE 








LUS 
DRUEAF FHA 
TXA 
ORA 
JSK 
FLA. 
DEY 
BEL 
RTS 


HEE 


TABEL 


FFD2 


HEDLUS 


ROUTINE: 20 BYTES 


s INDEXREGISTER: 
z GUOTIENT 





TABEL,Y _s DEELBAAR? 
DRUKAF __ sNEE 
TABEL, Y 


s NEE 





A 


„EYTE 1,10,100 
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WIJST NU 


NAAR HONDERDTAL 











dezelfde manier: we delen het 
overblijvende getal (dus nadat 
het honderdtal er is afgehaald; 
dit getal is dus altijd kleiner 
dan 100!) door tien. Als resul- 
taat krijgen we het tiental, dat 
we ook weer afdrukken. 


Het restant vormt het eental. 
Hoe we dit op het scherm zet- 
ten, is nu geen geheim meer. 


AFTREKKING 


We zijn nu vlakbij een routine 
om een en ander in de praktijk 
te brengen. Er is echter nog 
een klein probleem: de 
6500-processoren kennen 
geen deelinstructie. Nu kun- 
nen we natuurlijk een uitge- 
breide (en dus: een veel ruim- 
te in beslag nemende) deelrou- 
tine gaan schrijven, maar het 
is veel eenvoudiger om van 
een simpele aftrekking gebruik 
te maken: eerst het honderdtal 
zo vaak als mogelijk is aftrek- 
ken, daarna het resultaat op 
het scherm zetten, vervolgens 
het tiental zo vaak als mogelijk 
aftrekken, daarna het resultaat 
op het scherm en tot slot het 
restant afdrukken. 


Op deze pagina’s vindt u twee 
routines, die allebei hetzelfde 
doen. De eerste routine is veel 
langer, en niet gestructureerd 
opgezet. We plaatsen hem 
echter toch omdat hij een zeer 
duidelijk inzicht geeft in de 
manier waarop we te werk 
gaan. De tweede routine 
maakt onder andere gebruik 
van indexering en een tabel. 
Deze routine is dan ook veel 
korter, maar moeilijker te door- 
gronden. 

De besparing van maar liefst 
20 bytes in de tweede routine 
is mogelijk door gebruik van 
de tabel met daarin drie bytes. 
U ziet dat deze routine wel 
iets meer tijd in beslag neemt 
dan de eerste, omdat er hier 
ook van het aftrektal 1 gebruik 
wordt gemaakt. In de praktijk 
blijkt echter dat deze extra tijd 
te verwaarlozen is. 

Een tweede ‘sluipweggetje’ is 
het gebruik van de CMP- 
instructie. Zo op het eerste ge- 
zicht lijkt deze instructie hier 
niet helemaal op z'n plaats, 
omdat daarna toch nog een af- 


sEEN GETAL 





:HET GETAL 


DIT IS DE 


DECOUT STA 
LDX 
SEC 
LDA 
SEC 
BCC 
STA 
TNX 
ENE 


EFB 
#7 
LUSD1 
sEB 
#100 


EFB 


UITAL TXA 
DRA 


JR 


HEE 


LDX 
SEC 
LDA 
SBC 
BCG 
STA 
INX 
BENE 


#7 
LUS02 
+EB 
#17 


EFR 


UITUE TXA 
ORA 


JSK 


HED 


s NU NOB HET RESTANT (HET RECHTSE CIJFER) 


8 


LDA 
ORA 
JR 


FE 
HE2O 


RTS 


trekopdracht wordt gegeven. 
Het CMP-commando bespaart 
echter nogal wat bytes: ten 
eerste hoeft de inhoud van A 
niet steeds in een geheugen- 
plaats te worden opgeborgen 
vlak voor en vlak na de eigen- 
lijke aftrekking, ten tweede 
hoeft de carry-vlag niet worden 
gezet. Dit wordt namelijk door 
de CMP-instructie gedaan: als 
de inhoud van A kleiner is dan 
het deeltal wordt de carry niet 
gezet. Het programma komt 
dan niet door de BCC-val 
heen. Is de inhoud van A ech- 
ter groter dan of gelijk aan het 
deeltal dan wordt het carry-bit 
we’1 gezet, zodat er ten eerste 
door de BCC-val wordt 
gesprongen, en ten tweede 
een instructie (SEC) kan wor- 
den overgeslagen! 


DECIMAAL OF HET SCHERM AFDRUEEEN 


BEVINDT ZICH IN A 


“SLORDIGE” 


UITGL 


LUSGL 


EFFD2 


UITAE 


LUSOE 





€ INLLNOH 


ROUT INE: 





50 


EYTES 


sz OORSPRONEELIJEE GETAL EVEN BEWAREN 
sHIERIN KOMT HET RESULTAAT VAN DE DELING! 


HONDERD VAN GETAL AFTREEKEN 
sRESULTAAT ELEINER DAN 1007 DAN PRINTEN 


sBUOTIENT VERHOGEN 
zALTIJD 


sGUOTIENT PRINTEN 
sVERANDEREN IN ASCII 
zOPF HET SCHERM 
zGUOTIENT WEER OF NUL 


: TIENTAL BEREKENEN 
sRESULTAAT ELEINER DAN 107 DAN FRINTEN 


sALTIJD 


sFFD2 





AFDRUEKEN 


EFEDZ 


sELAAR 


In dit artikel hebben we het 
werken met kleine decimale 
getallen, in het bereik van 0 
tot en met 255, willen verkla- 
ren. De liefhebbers onder u 
kunnen nu aan de slag 
voor wat betreft het 
werken met twee 

byte getallen, met 


We komen hier nog op terug; 
bovendien zullen we dan eens 
kijken naar het omzetten van 
een waarde in een hexadeci- 
maal getal; een probleem apart. 


ASL 
15 ROL $ 
018 CLC 








een maximum- 18019 LDA 4 
waarde van AD 
65535. 
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band dat is bedoe 


SCN 
COMMODORE 
HOTNEWS 


De Stichting Computerhobbyisten Nederland, beter bekend als SCN Hot-News en Com- 
modore Dossier ze een samenwerkingverband aangegaan. Een samenwerkingsver- 


d om zowel de SCN-leden, als de abonnees van van Commodore 


Dossier nog beter te kunnen informeren over hun computer, de Commodore. In het 
kort komt het er op neer dat de abonnees van Commodore Dossier nu kunnen mee- 
profiteren van de vele faciliteiten, zoals het gait bezoeken van de Nen bij- 


eenkomsten en dergelijken, die SCN haar le 


en biedt. Het spreekt voor zich 


at de 


SCN-faciliteiten ALLEEN beschikbaar zijn voor ABONNEES van Commodore Dossier. 


WAT DOET 
SCN 


SCN geeft elke maand een 
clubblad uit, boordevol listings, 
tips en nuttige informatie be- 
treffende de C-16, plus 4, 
C-64, de C-128 en de Amiga. 


HOTNEWS 
|SCHIJF2 


HOT-NEWS 
SCHIJF 1 


® adressenbestand 
antilist 

auto number 
autokosten 
cassette bestand 
cross-reference 
database cass 
dir+database 
directory sort 
disk catalog 
disk etiket 

disk hulp 
domino 

dr. video 
flightsim vic 
getal omzetten 
huisinventaris 
interface 
joystick test 
list-stop 

monitor $c000 
monitor 64 
rekenmach. 2 
rekenmachine 
tape library gen 
tekstverw/oki 
tekstverwerker 
toolkit 64 

toolkit sys49152 


®@ 20 keer kip 
ascii tabel 
autodial 
autostart 

basic tabel 
bliksem teller 
boodschappenlijs 
bowling 
cass.index 
compactor 
directory 

disk repair 
funktiekey 64 
hardcopy 
highlighter 
inhoud hotnews 
interface 
jaarkalender 
kalender 
karakters 
karakters 2 
kijk 1/2 k 

kijk 1/8 
lichtkrant 
maandkalender 
nieuwjaar 
poke-peek(a) 
poke-peek(h) 
print hex-dec 
printer datamake 
printer generato 
printer voorbeel 
quick-64 
rekenmachine 
sorteren 
tekstverwerker 
tekstverwerker g 
toolkit 64 
transfer 

uni lister 


Vervolg schijf 1 
unnew 64 
videobanden 
vidiprint 
woordbreker 
woordbreker 1 


HOT-NEWS 
SCHIJF 3 


SCN organiseert elke maand 
bijeenkomsten waar 
Commodore- 
enthousiastelingen elkaar ont- 
moeten. 


-Bijeenkomst: de grootste bij- 
eenkomst wordt elke tweede 
zaterdag van de maand in de 


| HOTNEWS 
SCHIJF A 


® bibliotheek 
bibliotheek01 
bibliotheek02 
bibliotheek03 
bibliotheek04 
bioritme 
bioritme 2 
datum paasdag 
demo logo 
diskinputfile 
einde bib 
finance 

finance 2 
fotografie 

gener bib 

instr bib 
kaartbestand 
kalender 

lees bib 

linker 

micro pims 
minigraph demo 
minigraph loader 
omvormer 
pokenvolgenscrsr 
print bib 
rename 1541 
s.c.n. bestand 
s.c.n. merge 
samen bib 
sammon64.3 
sort bib 

sort dir 
sortwork 1 
start bib 
verander disknr. 
verander start 
vieuw bam extra 
weerstanden 


® adressen vic 
audio bestand 
checksum sen 
eoc.chr 

coc. int 
cocktail mixer 
denktijd 
etiketten 

file pl/b 
honderd kwis 
humbug ned 
instructies 
lesrooster 
platenbestand 
printen 

raad een dier 
reaktie deel 1 
reaktie deel 2 
sbe-adres 
sbe-nota 
spritecontrol 
start 
temp.meten (sb) 


Meervaart te Amsterdam- 
Osdorp gehouden. 

Tussen 10.00 en 16.00 uur 
bent u van harte welkom. 
Tijdens die bijeenkomsten wor- 
den de volgende activiteiten 


georganiseerd: 


-De informatiestand: voor aller- 


HOT-NEWS 


SCHIJF 5 


® aantal berichten 
aantal mes 
ascii file 

bbs sen 

berek. regatta 
bericht lezen 
blokletters. 
centronics 
cursieve.letters 
einde regatta 
hoge+norm.kar… 
invoer regatta 
linker 

password niet | 
print4 regatta 
regatta berek. 
regatta instr. 
regatta invoer 
regatta print 
regatta print1 
regatta print2 
regatta print3 
regatta print4 
regatta result 
rel bericht make 
rel maken 
result regatta 
s.c.n. bestand 
s.c.n. library 
s.c.n. mergen 
start regatta 
telefoonkosten 
teletekstietters 
trio 
verkoopsimulatie 
videotitels. 


HOT-NEWS — 
SCHIJF6 


® 0 blocks free 
c64 autostart 
c64 diskpatch 
change unit 
ciaklok 
datamaker.c64 
de 100-kwis twee 
de honderd-kwis 
dir loader 

dir print 

dir squeeze 
disk-dump 
diskindex 
display bam 
drivetest 
energie 

format disk 
girorek. c-128 
header change 
key define 
kwis-1 top-10 
kwis-2 hi-score 
load address 
matrix produkt 
morse oefenen 
num bord c128 
print.64.util 
printer test 
sd.backup.c64 
sd.copy.c64 
seq lister 
spandoeken 
test 1541 
uni-copy 
unscratch 


lei vragen op computergebied, 
programma’s uit onze softwa- 
rebibliotheek, vragen en 
programmeer-problemen, men 
zet uw programma's gratis in 
eprom, we hebben een eigen 
goed en goedkoop merk schij- 
ven voor u. 


-Reparatiestand: voor het aan- 
brengen van bijvoorbeeld een 
resetschakelaar, kleine wijzi- 
gingen/reparaties aan de appa- 
ratuur, stellen van koppen van 
de cassetterecorder/diskdrive, 
inbouwen van nieuwe kernal’s 
en karakterrom’s enzovoort. 
-Handelaren: tegen hobbyprij- 
zen bieden zij u de nieuwste 
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® airplane 
autokosten 
check-log 
clock-works (c) 
deur dicht 
finance 
homefinace 
hyporente 
kassa c-64 g 
kruiden boksbal 
kruidenbase c1 
kruidenprint charset 
kruidensort datamanagerc128 
mah-jongg punt fl 

prg a 

prg b 
schaatsen 
schaatsenstart 
termostaatklok 
voet-tocht 


100-kwis-1 cass. 
100-kwis-2 cass. 


filereader 
gr.pl. tutor 
grafiek plotter 
karakterzoeker 
karakterzoeker 
oppervlakten 
rekenen 

rocky iv 

rule of game 
slee 

sort 

stoten 

test 

test blok 
testbeeld c128 
top 5 … 
vakantie 
verzameling1 
verzameling6 





artikelen op computergebied. 
(uitbreidingen die vaak niet in 
de winkel te koop zijn). 


“Hobbyisten: zij demonstreren 
zelfgemaakte hard- en 
software-uitbreidingen. 


-Softwarebibliotheek: de club 
beschikt over een bibliotheek 
met programma’s op allerlei 
gebied. deze bibliotheek groeit 
nog elke week. 


-Cursussen: elke maand wor- 

den in Amsterdam een cursus 
Basic, een cursus machinetaal 
en een cursus flight-simulator 
gegeven. 


-Viewdatabank: u kunt een toe- 
gangsnummer krijgen voor on- 
ze eigen “’viditel” systeem. In 
dit systeem vindt u een grote 
sortering telesoftware die u 
gratis ter beschikking staat. 24 
uur per dag. 


® autokosten 
basic extender 
boekencatalogus 
clear 
com-grafix 
com-grafix-hoed 
Cursor 

leren optellen 
leren rekenen 
mac-64 
mac-start 
merge 

mozaik 
omt./opp./inh. 
pe/eale (c) 
posttarieven 
rekenen 
screendump 
solo mission 
sorteren 

sprite editor 


® 1966 

apie c mensprt3 
bob’s lettersets 
centronicdriver 
goto a 

goto demo 
h/a.m.-modulatie 
h/eos7x/sin8x | 
h/cos7x/sin8x n 
harte(n)dief 
harten jagen 
klok 

koala loader 
tedenadministr 
loader rad v a 
m/a.m.-modulatie 
master mind 

mt saver 
numkeypad c64 
orgeltje 

part-1 

preludium 


serieelbus test 
set-1 

set-2 

set-3 

setrad 

sidmon sen 
spiegelbeeld 
spriteklok 
typecursus 
typeplotter 
userpoort scan 
yesterday 


® telesoftware schijf 


gebr.aanw.scn 

vid. rad-modem 

vid. teletron mo 
vid.diverse mod1 
vid.diverse mod2 
com. doss download 


Ook de programma's die wij 
als listing afdrukken, kunt u 
hier downloaden. 


VOOR MEER 
INFORMATIE: 


Alleen op dinsdag- en woens- 
dagavond tussen 18.00 en 
22.00 uur: 020-104483. 


PROEF- 
NUMMER 
HOTNEWS 


Een proefnummer van ons 
blad kunt u bestellen door 

f. 4,- op girorekening 5441050 
ten name van SCN te Amster- 
dam over te maken. 


PROGRAMMA 
BIBLIOTHEEK 
SCN 


De navolgende programma’s 
zijn op schijf te verkrijgen. de 


ABONNEMENT/ 
LIDMAATSCHAP 


Een abonnement bedraagt 
slechts f. 40,- per jaar. Dit 
abonnement kan elke eerste 
dag van de maand ingaan. 


Naast gratis toegang tot de ge- 


bruikersdagen en de facilitei- 
ten, ontvangt u ons blad elke 


programma’s die op de schij- 
ven 1 tot en met 4 staan, zijn 
ook op cassette te verkrijgen. 
De programma’s die niet met 
een cassetterecorder werken 
zijn weggelaten. 


BESTELLEN: 
Dit kan op 3 manieren: 


1.Tijdens de bijeenkomsten 
door betaling van f. 10,00. 


2.Maak f. 10,00 + per bestel- 
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® calculator 
datazoeker 

disk etiketten 
energiebewust 
globaal-1 
globaal-2 
kleureffect 
listing 1 

listing 2 

listing 3 

listing 4 
materiaal ber. 
mc-hulp 

printer 
revolverh/c000 
tekstverwerker 
uitleg globaal 
woordeffect 
zwitsers systeem 
[zwitsers systee 
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® documentatie 
gas-elektra 
lotto/128 

mijn stad 
mini-kit 
navigatie 
run.simple term 
sb/rapport 
sb/rooster 
simple term 64 
tester.mem 
trans-lister 
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® 64 fast pokes.c 
atoomgewicht 128 
basic comm. 64 
cursorkleur 
definition.c 
fin.analyse 
formateer 64 
game-killer 
high-res/mps-802 
instrukties 
invoerprg 
joystick doodle 
kleurenkaart 64 
lifescore 

list freezer.c 
memorizer-128 
menu 

milage 

monitor 50000 
munchmath.c 
random lotto.c 
raster interupt 
rename4 

sin disk copy 
term.64.d 
terminal 64 
testbeeld 64 
textmaster.c 


 tm-instruct 1.d 


tm-instruct 2.d 
tm-instruct 3.d 
turbo menu maker 
viper.c 
viza-Yzascii 

wet paint.c 

word worker.c 
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® -prive 

-zaak 

adres 64 
agenda 64 
echte new 64 
floppybestand 64 
inf tydschrift64 
info 

karakters 64 
kernreactor1 64 
kernreactor2 64 
list-stop 64 
monitor 50000 
peek mon 64 
rename 64 
scratch 64 
simons demo 64sb 
spred.bas 
tekstel 64 


® pc/base (c) 


| cASSETTE 
Ci6en4 


® bliksemteller 
boodschappenlijst 
kalender 1 
tekstverwerker 
videotitels 
rekenmachine 
adressenbestand 
autokosten 
cassettebestand 
getal omzetten 
huisinventaris 
bioritme 

datum paasdag 
finance 1 en 2 
fotografie 1 en 2 
kaartbestand 1/2 
kalender 2 
omvormer 

view bam extra 
weerstanden 
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® eva 
eva.2 


maand aan huis. 


Lid worden doet u door fl. 40,- 
(12 maanden) over te maken 
op postgiro 5441050 ten name 
van SCN Commodore Hot- 
News te Amsterdam. 


ling f. 2,50 porto / verpak- 
kingskosten over op postgiro 
5441050 t.n.v. SCN te amster- 
dam. onder vermelding: *schijf 
(nummer) of cassette (num- 
mer)” en uw abonnee- 
nummer. 


3.Via Viditel, kies pagina 
6247102. In ons bestand vindt 
u alle SCN schijven terug. De 
prijs is een stuk hoger, maar 
dat komt omdat zowel de PTT 
als de IL eraan moeten ver- 
dienen. 


TOEGANG 
BIJEENKOMST 


Abonnees die de bijeenkom- 
sten in Amsterdam willen be- 
zoeken moeten de wikkel 
waarin ze Commodore Dossier 
ontvingen meenemen. De wik- 
kel dient als toegangsbewijs. 








Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg 


De regels van 25 


van onduidelijke op 
aans 


ave. Een advertentie mag ten 
agen lang zijn. 


Opsturen aan: Commodore Dossier, 
t.a.v. mevr. C. de Haan, 
Rijnsburgstraat 11, 
1059 A 


Ik bied aan hardware 

@ Audio Sonic (camping) z/w TV (loopt 
op 12, 6 V)en 12” green mon. (220V). 
In een koop f 1350. Andre vd Weijden, 
Aquamarijnpad 38, 3402 GK IJsselstein 
Utr. 

@ CBS Colecovision spel-computer + 8 
spell. Prijs: f 225,-. Tevens CBM-64 
softw. te ruil. Tel. 01793-2103. 

® Voor VIC-20 40/80-tekenkrt. en expan- 
sieslot voor 2 krt. Heeft eigen videoge- 
heugen. Prijs: f 125,-.R.P.L. Oranje, W 
Beckmanstr. 378, 3762 HL Soest. Tel. 
02155-20246. 

@ CBM-64 met: 1530, 1541, MPS-803, 
Teletron modem, final cartr, lichtpen, 3 
joyst., 20 cass., 80 floppys, veel softw, 
boeken en tijdschr. Alles in een koop. 
Tel, 01158-1315. 

@ 2x81 + 16K + trafo + 2 cass, + 3 
boeken. Weinig gebr. en in doos. Prijs: 

f 99. Tevens handl. TRS-80 (eng.). 
Prijs: f 10,-. Marnix. Tel. (na 16 uur) 
070-240793. 

® KCS speedloader voor disk met vele 
funkties, inel. ned. handl. Prijs: f 50, 
Berthold van Dommelen, Hoge Kamp 27, 
7963 AW Ruinen. Tel. 05221-13094. 

® Amstrad/Schneider CPC 4564 met div. 
softw. w.o. Pascal, tekstverw. en spellen. 
Prijs: n.o.t.k. Tel (na 18 uur) 
010-4760003 of 4767207, 

© Graf. Rom MPS-803. Werkt geweldig. 
Prijs: f 40,-; KCS disktocl. Prijs: 40,-; 
CBM-64 met 1541 speeddos printer 130 
disks met progr. en boeken. Prijs: 

f 1500. W. Vermeulen, Overijssellaan 99, 
2101 TC Heemstede. 

® Brother HR 10C Margrietwielprinter 
voor Commodore, 2 printwielen. Prijs: 
n‚o.t.k. Te. (na 17 uur) 05181-1435. 

© Seikosha GP100VG (3 mnd. oud). 


Prijs: f 175,-. M.J.M. Hesseling, Houtsnip- 


laan 34, Doorwerth. Tel. (na 19 uur) 
085-340395. 

@ Speedloader en saver: vele extra com- 
mando’s en voorgeprogr. functietoetsen 
voor disk en tape. samen F 80, Ook los 
f 45. D.Snijders. Tel. (na 20 uur) 
020-431040. 

@® VIC-20 + datarec. + 5 spelcartr. + 
softw. Prijs: f 200,-; KCS combi speedloa- 
der. Prijs: f 50,-. Tel. 033-633567. 

® Teletron modem PTT gek. + pr. Auto 
Dial/Ans (2 mnd. oud). Prijs: f 525,-; 


Slim line tel. Prijs: f 20,-: MB comp. gest. 


truck + kipaanh. Prijs: f 200,-. Alles in 
een koop. Prijs: f 725,-. Erik. Tel. 
08355-1727. 


DOSSIER COMMODORE AKTIEF 


Amsterdam 


® VIC-1011a: RS232c interf. voor de 
CBM-64. Prijs: f 50,- of ruilen tegen aoed 
turbo progr. op cartr. T.A. Albada Jel- 
gersma, Reidfjld 37, 9255 JS Tietjerk. 
@ CBM-64 + 1541 drive + datarec. + 
MPS-803 + KCS powercartr. + 2 joyst. 
+ boeken + softw. (incl. handl.). Prijs: 
f 2100. Tel. 02155-15044. 

@ Matrix printer voor CBM-64 (type Sei- 
kosha GP100VC. Prijs: f 200,- of ruilen 
tegen een goede mon. (liefst amber) en 
geschikt voor de CBM-64. J.Hoekmeijer, 
Torp 65, 1785 RS Den Helder. Tel. 
02230-36951. 

@ CBM-64 + 1541 diskdr. + datarec. 
+ joyst. + powercart + veel boeken + 
tijdschr. + softw. Prijs: f 1100. Tel. (na 
18 uur) 01608-32285. 

@ Commodore 128 + drive 1570. Tel. 
(na 17 uur) 030-444947. 

® Een 1541 drive voor CBM-64. Prijs: 

f 200,-. Tel. (na 18 uur) 01724-6232. 
® Citizen 2 kl. printer voor de 
CBM-64/128. Vraagprijs: f 130,- (nieuw) 
omscakelen 40/80 kar. CBM-128. Prijs: 
f 15,- (video aut) voor digitaliseren foto’s 
etc. Tel. 02245-811. 

©@ CBM-64 + datarec. + Brother HR5 + 
interf. + joyst. + 66 cm kl. TV VizaWri- 
te + Simons Basic + veel meer softw. 
Vraagprijs: f 2000. Evt. Olivetti 40 DW 
CBM-64 + interface. Prijs: f 1000. K. 
Stroes, E Wolffstr. 77-1, 1053 TT 
Amsterdam. 

© Eprombank (v SePr.) incl. snell. v. 
disk ook t‚k. of te ruil progr. op disk en 
gevr. progr. voor beurs (aandelen e.d). 
Marcel. Tel. 01880-39224. 

© TRS-80 model Il + div. softw. Tel. 
(na 18 uur) 02984-3633. 

® Tekstverw. WORDSTAR 3.0 (Duitse 
versie) vaor CBM-128 met handl. Prijs: 
Hfl. 220,-. Karel Assmann, Hindedreef 35, 
B-2080 Kapellen (Belgie). Tel. 
03-6645290. 


Ik bied aan software 

@ 30 orig. spellen voor CBM-64 (0.4. 
View to a Kill, Beach Head | en Ul). In een 
koop. Prijs: n.o.t.k. Tel. 010-4622897. 


Ik zoek hardware 

@® Wie helpt mij aan een CP/M module? 
T.Storm, Kloveniersburgwal 19-E, 1011 
JT Amsterdam. 

® MPS-803 + diskdr. 1541. Tevens 
spellen te koop of te ruil o.a. Uridium, 
Bomb-Jack, Golf, V. Prijs tussen de f 5,- 


en f 15, Tel. 02297-1853. 

@ CBM-64 + cass. + evt. joyst. Prijs: 
f 250, nt Kuiperstr. 23, 8121 
AK Olst. Tel. (na 18 uur) 05708-2391. 
@ CBM 1541 diskdrive. Tevens te koop 
Steen der Wijzen. Hans Lesscher, Born- 
sestr. 58, /597 NG Saasveld. Tel, 
05404-329. 

® 1541 diskdrive. M.P.Parqui te 
Voorburg.Tel. 070-867587. 

© Een printer voor Commodore. Tevens 
verk. of ruil ik goedk. softw. Olaf Corne- 
lis, O.L.Vrouwweg 1, B-1860 Meise (Bel- 
gie). Tel. 02-2692570. 

® Ik wil telex signalen decoderen met 
mijn CBM-64. Wie kan mij aan hard- en 
software (informatie) helpen? C.van Leeu- 
wen, Honingzwam 78, 2403 HR Alphen 
ad Ryn. Tel. 01720-43152. 

® Gekleurde keftingform. op A4 formaat 
en een beschrijving van The Newsroom. 
J.R. Hornes, Vreelust 18, 2804 LH Gou- 
da. Tel. (na 18 uur) 32888, 

® MPS-801 + descender-Rom. Prijs: 

f 80,-; normale letter-Rom en veel softw. 
Vraagprijs: f 325,-. Ronald Sloot, 
Jasmijnstr. 23, 4741 CC Hoeven. Tel. 
01659-3686. 

® Z.g.a.n. groene Philips manitor met ka- 
belaansl. voor de CBM-64. Vraagprijs: 

f 200,-. Tel. 010-4600225. 


Ik wil ruilen 

® Gebruikersprogr. voor de CBM-128 
(CP/M, CBM-128 of 64 mode). Philippe 
van Honacker, Mechelsebaan 30, B-1860 
Meise (Belgie). Tel. 02-2693278. 

® CBM-64 softw. op disk of cass. T. van 
Moerzeke, Buntstr. 1, B-9160 Hamme 
(Belgie). 

® Spellen voor CBM-16 bijv. Airwolf, 
Xargon. J. Bonnemayers, Goudplevier 22, 
5271 LE Sint Michielsgestel. Tel. 
04105-3350. 

® Spellen over het Teletron modem en 
wie weet er telefoonnummers van Data- 
banken. Hans. Tel. (na 18 uur) 
03402-64267. 

@ 1570 drive (3 mnd. oud + gar.) rui- 
len voor 803 printer voor de CBM-128. 
Tevens gevr. copieerprogr. voor de 

1571 drive. B.Rateau, Franssensingel 65, 
6211 AB Maastricht. 

® Wie wil softw. ruilen. Zoek kontakt 
met persoon in de omgev. Hoorn NH. Al- 
les is welkom. Bezit veel spellen en ik 
zoek naar Top Duitsland. Tel. 
02290-39599, 

® Tekstverw. (cartr.) in ruil voor Simons- 
Basic-cartr. + handl. J.Boesten te Bruns- 
sum. Tel. 045-255851. 

® Ik zoek geluidstechn. soft-/hardware. 
Evt. ruilen tegen zelfontwikkeld comp. 
gestuurd looplicht. M.Commandeur, Kui- 
kensweg 70, 1944 EM Beverwijk. Tel. 
(na 18 uur) 02510-44323. 


Ik zoek software 

® Ik zoek: Fight Night, Gi joe en Bruno 
Boxing op tape. Ruilmateriaal: Beachhead 
2, Alien, Way of the tiger. Gerard Veer- 
man, H.Rolstr. 8, Volendam. Tel. 
02993-63057. 

® Goede gebr.softw. en spelletjes voor 
de CBM-128. Hans De Ridder, Wiesbeek 
12, B-9360 Buggenhout (Belgie). Tel. 
052-359513. 
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© Handl. van Word Pro +3 en Word 
Craft (liefst in het ned.). Evt. kl. verg. 
P.Reijnen, Way Broek 2, 6041 PJ Roer- 
mond. Tel. (na 16 uur) 04750-32745. 
® Het complete astrologie-progr. op cass. 
voor de CBM-64. W.Claeys, Apollo XI 
Laan 14, B-8300 Knokke (Belgie). Tel. 
050-5604684. 

@ Een petspeed-recompiler of een data- 
base in Basic voor relatieve bestanden. 
W. van Vliet. Tel. 01806-15541. 

® Audio Spectrum Anulizer (bekende 
progr. Adam Curry). Tevens andere softw. 
voor de CBM-64 om te ruilen. Rob vd 
Brug, Postbus 439, 7500 AK Enschede. 
@ Voor CBM-64 op tape tegen kl. verg. 
J. van Bussel, Allendelaan 52, 8161 DB 
Epe. Tel. 05780-20224. 

© Wie kan mij helpen aan een handl. 
voor het progr. The Micro Astrologer van 
CBM. Ook zoek ik andere progr. over 
astrologie. V.de Moor, Oostervenne 223, 
1444 XJ Purmerend. Tel. 02990-37749. 
® Voor de VC-20 op tape. Tevens gevr. 
of te ruilen porno games op tape voor 
CBM-64. Edwin. Tel. 010-4703088. 


OVERIGEN 

@ Gevr. nr-0 Comm. Dossier + alle CD- 
Actief’s tegen verg. Peter Goris, Linden- 
laan 4, B-8470 De Panne (Belgie). 

® Ik zoek slimme machinetaal softw. 
man/vrouw om musicprojekt op te zetten 
in de omgev. Maassluis. Tel. (tussen 18 
en 22 uur) 01899-25532. 

® Wie kan mij helpen aan de handl. voor 
het spel Archon tegen betal. of te ruilen 
voor softw. S.vd Meulen, J Catsstr. 8, 
3221 TL Hellevoetsluis. Tel. 01883-19148. 


VOOR DE 
GOEDE ORDE 


Wellicht ten overvloede, maar 
we willen u er nogmaals zeer 
dringend op wijzen dat adver- 
tenties waarin illegale software 
wordt aangeboden zullen wor- 
den geweigerd. Er zijn nog 
steeds veel mensen die vele 
honderden spelletjes te ruil of 
soms zelfs te koop aanbieden. 
ledereen kan op zijn klompen 
aanvoelen dat het hier om zo- 
genoemde ‘gekraakte’ softwa- 
re gaat. Helaas slippen er nu 
en dan dergelijke advertenties 
door onze selectie. We verzoe- 
ken dan ook dringend dergelij- 
ke advertenties niet meer op 
te sturen. Het is ook voor uw 
eigen bestwil. Het wil nog wel- 
eens gebeuren dat de Stich- 
ting Bescherming Software sa- 
men met de politie een be- 
zoekje brengt aan aanbieders 
van illegale programmatuur. 
Het spreekt voor zich dat de 
aanbieders van legale software 
van harte welkom zijn in de 
gratis advertentie-rubriek. 
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FINGER TIP 
CONTROL 
IS WITHIN. 
YOUR GRASP. 


konix 


SPEEDKING 
A Major Breakthrough 
in Joystick Design 


Tau Ceti 

Een weergaloos ruimte-avontuur in de beste Elite 
en Mercenary traditie. 

Een perfecte combinatie van arcade actie en 
strategisch denken. 

Spelpositie kan op tape/disk gesaved worden. 


Rocky Horror Show C128 

Het allereerste arcade adventure-spel uitsluitend 
voor de CBM128 in 128 mode. Uitgebreid met 
talloze lokaties biedt dit grafisch grandioze spel 
tientallen uren spelgenot. 


Konix Speedking joystick 

Revolutionaire vormgeving! Nooit eerder lag een 
joystick zo perfect in de hand. Razendsnelle 
microswitches zorgen ervoor dat geen enkel spel 
ooit nog problemen op zal leveren. Geschikt voor 
Commodore 64/128, Atari en MSX. 


Weer drie sensationele produkten uit de 


‚uitgebreide HomeSoft catalogus. Voor nadere * 
informatie raadpleeg Uw dealer. 


Home Software Benelux bv 


Home Software Benelux bv 
Jansweg 52 

2011 KN Haarlem/Holland 
Telefoon (023) 318488 

Nr. K.V.K. 57.860 Haarlem 
Bank: ABN Haarlem 
Banknummer: 56.04.13.947 
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De Commodore 128D heeft alle 
voortreffelijke eigenschappen die de 
Commodore 64 tot tweemaal toe tot 
Home Computer van het jaar hebben 
gemaakt. Plus dit. Een tweemaal zo 
groot intern geheugen van 128 Kb RAM 
dat maar liefst uitbreidbaar is tot 512 Kb. 

Ofwel de capaciteit van een flinke 
kantoorcomputer. Bovendien heeft de 
Commodore 128D een ingebouwde, su- 
persnelle diskdrive (360 Kb), waardoor 
het nog plezieriger is om met de 
128D te werken. 

Daarnaast is hij nog portable ook. 
et de Commodore 128D moeiteloos 
haar uw hand in de krachtige Basic 7.0 
taal, waarmee u een scala van nieuwe 
opdrachten en functies, met name op 
grafisch- en geluidgebied ter beschikking 
heeft. Briljante kleurgrafieken, bewegen- 
de sprites en hifi-geluid; de Commodore 
128D legt uw creativiteit geen enkele 
beperking op. Ook al doordat de 128D . 
probleemloos werkt met alle C-64 pro- 
gramma's plus de zakelijke software 
volgens CP/M standaard. 

U kunt putten uit een scala van 
vele honderden Nederlandstalige hobby-, 
educatieve- en zakelijke programma's 
zoals boekhouden, tekstverwerking, 
adresbestanden, calculatie- en statistiek- 
programma's, enz. 

Het enige waarin de Commodore 
128D bescheiden is, is zijn prijs. Precies 
zoals u dat van Commodore gewend 
bent. 


Commodore 


Daar wordt een mens wijzer van. 





